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Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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**F ILE**1De*F ORIOEND 


FFFFFFFFFE 000000 RRRRRRRR III] 000000 EEEEEEEEEE NN NN DDDDDDDD 

FFEFFFFFFF 000000 RRRRRRRR HI111 000000 EEEEEEEEEE NN NN DDDDDDDD 

FF 00 00 RR 28 I] 00 oO EE NN NN DD DD 

a 00 00 RR wR I] 00 0O EE NN NN DD DD 

FF 00 00 RR AR I] 00 00 EE NNNN NN DD DD 

FF 00 00 RR ah I] 00 00 EE NNNN NN DD DD 

FFFFFFFF 00 00 RRRRARRR I] 00 OO EEEEEEEE NN NN NN DD DD 

FFFFFFFF 00 00 RRRRRRRR I] 00 OO EEEEEEEE NN NN WN DD DD 

FF 00 00 RR RR li 00 0O EE N NNNN DD DD 

FF 00 00 RR RR I] 00 0O EE NN NNNN DD DD 

FF 00 00 RR PR I] 00 0O EE N NN DD DD ities 
FF 00 00 RR RR I] 00 00 EE NN NN DD DD saad 
FF 00 R RR HINii 000000 EEEEEEEEEE NN NN DDDDDDDD sown 
FF 000000 RR BR HI111 000000 EEEEEEEEEE NN NN DDDDDDDD iinat 
LL II1I11 SSSSSSSS 

LL H111 SSSSSSSS 

LL 11 SS 

LL 11 SS 

LL II ss 

LL II ss 

LL II SSSSSS 

LL I] SSSSSS 

LL II SS 
LL I] SS 

LL Il SS 

LL I] $$ 
LLLLLLLLLL III SSSSSSSS 

LLLLLLLLLL HII! SSSSSSSS 


FORSIO_END 
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FORTRAN End 1/0 statement 
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MODULE FORSIO_END (ZTITLE "FORTRAN End 1/0 
we = *1-011' 
= 


tement' 
: FORIOEND.832 Edit: S$BL1011 


BEGIN 


PSE SSSSSISTIT ICES TTP T TTT CTT eC P CPT TT c eee c cite etic iirc iii citi iiiiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
*® 
! « 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. ° 
® 
* 
® 
® 
tr 
® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i 
 hinlalaninanmgmmanidisnditbaimiiindinisiadiebalidainéabbeadieadbeakaenauneent 
ee 

} FACILITY: FORTRAN Support Library - user callable 

ABSTRACT: 

i This module terminates a FORTRAN 1/0 statement, writes 

: last record if output, and pops up the 1/0 system to 

a@ previously active 1/0 statement if any. 

ENVIRONMENT: User access mode; mixture of AST Level or not 

AUTHOR: Thomas N. Hastings, CREATION DATE: 03-Mar-77 

MODIFIED BY: 

Thomas N. Hastings, 05-Mar-77 : VERSION 01 

i 

i 


(Previous edit history removed. SBL 29-Sept-1982) 
1-011 = Change OTS$$ data structure references to FORS$$. SBL 29-Sep-1982 


71986 99:30:08 EPORRTLSSRESFORIDEND 039; 1 


OR$}0 END FORTRAN End 1/0 statement 16-Sep-1984 99: 3: 3} AX-11 Bliss-32 V4.0-7 B33. Page (2 


e738 o-1 FORRTL.SRC FORIOE END.83 

3 0 49 1! 

3 } PROLOGUE FILE: 

; 052 1 

3 35 038 : REQUIRE ‘RTLIN:FORPROLOG'; ! FORTRAN declarations 

; 120 1! 

; $7 121 1 ! TABLE OF CONTENTS: 

; 8 1 ; 1! 

; 1 1 

: 60 1246 1 FORWARD ROUTINE 

oe) 3 5 1 FORSIO_END; ! End 1/0 statement 

3 $6 1 § 1 

ae 01 1! 

; 664 0128 1 ! EQUATED SYMBOLS: 

; & 0129 1! 

; 66 0130 1! NONE 

coe 0131 1! 

; 68 01 ¢ 1 ! OWN STORAGE: 

; 0133 1! 

; rT 0134 1! NONE 

; 0135 1! 
a. off 0136 1 ! EXTERNAL REFERENCES: 

ee 0137 1! 

; 7% 0138 1 

ee: 0139 1 EXTERNA 

; 6 0140 1 FORSSA CUR_LUB : VOLATILE, ' Pointer to current LUB/1SB/RAB 

: 77 0141 #1 FORSSAA_ UDF _ PRO : VECTOR; ' PIC array of use ata 

3 big : ! formatter (UDF) level of abstraction. 
s Ape: 1 exten, ot 

s; 6 téS 145 1 abs yg ! error condition handler for END= and &RR= 
; 0146 1 FORS 5 POP : MgB CB_POP NOVALUE, ! Pop entire 1/0 system back to previous LUB/1SB/RAB 
; 3 ster : FORSSSiGNAL : NOVALUE; ! Signal an error with a small error number 
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GLOBAL ROUTINE FORSIO_END = : 


jo END FORTRAN End 1/0 statement 


j 
' 
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1 
1 FORRTL.SRCJFORIOEND.B32;1 (3) 


'e+ 
! FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


jostat.wl.v = FORSIO_END () 


FORMAL PARAMETERS: 


NONE 


IMPLICIT INPUTS: 


FORSSA_CUR_LUB Adr. of current logical unit 
block (LUB). Used to setup ISB 
to get current 1/0 statement type 


code. 
ISB$B_STTM_TYPE 1/0 statement type code - index to 

dispatch table anere 
FORSAA_UDF _PR1 Array of user data formatters 

(UDF level of abstraction). - 
ISB$B_ERR_NO Last continuable error to occur in the state- 


ment or 0. SIGNAL ff non-zero! 
format array or 0 if none. 


IMPLICIT OUTPUTS: 


FORSS$A_CUR_LUB Adr. of pushed down LUB/ISB/RAB or 0 
if no unit pushed down (usual) 


ROUTINE VALUE: 


An IOSTAT small integer FORTRAN error number, either 0 if no | 
error or the number of whatever continuable error last occurred 
n the 1/0 statement. 


SIDE EFFECTS: 


If an_error occurs, it is SIGNALed unless an ERR= 
transfer parameter was specified when the 1/0 statement 
initialization call was made (see module FORS$IO 

entry points FORSCREAD WRITE}_{SF,SO,SU,DF,D0,D0,SLS or 
FORSXDECODE ,ENCODE)_{MF ,MO}), in which case control is 
brane terres to the Specified address (after stack 
unwind). 


BEGIN 
GLOBAL REGISTER 


CCB = K_CCB_REG : REF SFORSCCB_DECL; 


LOCAL ' Declare locals tor each item to be passed to handier 


-———————_——- 


FORSIO_END 
1-01 
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FORTRAN End 1/0 statement 


FORRTL.SRCJFORIOEND.B32;1 (3) 


H 8 
16-Sep-1984 2:30:31 
1e=88p-1984 12:39:03 
} Needed since can only pass address, not contents 
4 
' 
' 


L_UNWIND_ACTION : VOLATILE, ! UNWIND action code. 
A-ERR_ADR : VOLATILE, ! ERR= user address 
A-END-ADR : VOLATILE ! END= user address 
L-INCR DEPTH : VOLATILE ' additional frames between establisher and user (0) 
USER FRAME : REF BLOCK (, BYTE], i User's call frame 
1OSTAT; ! Local copy of ISB$B_ERR_NO 
NABLE ' Establish error conditon handler 
FORSSERR_ENDHND (L_UNWIND_ACTION, A_ERR_ADR, A_END_ADR, L_INCR_DEPTH); ! Pass UNWIND action code. 


! Pass ERR= and END= user addresses or 0 
! and the number of frames between the activator and the user (0) 
CCB = .FORSSA_CUR_LUB; 


1+ 

! Setup LOCAL storage to be passed to error handler in case of a signal 
Indicate that UNWIND action is to pop current LUB/ISB/RAB if error 
L_UNWIND_ACTION = FORSK_UNWINDPOP; 
ATERR_ADR = .CCB CISBSA-ERR_EQUAL); 


ALEND-ADR = .CCB CISBS$A_END_EQUAL); 
L-INCR_DEPTH = 0; 


+ 
} Restore user's handler in the frame, if any. 


USER_FRAME = .CCB CISBSA_USER_FPI; 
USER-FRAME CSFSA_HANDLER] = .CCB CI1SBSA_USR_HANDLJ; 


'¢ 
' Call appropriate UDF termination routine 
} Any errors will be signaled. 


JSB_UDF9 (FORSSAA_UDF_PR9 + .FORSSAA_UDF_PRO C.CCB CISB$B_STTM_TYPE) - 
ISBSK_FORSTTYLO # 1)); 


'¢ 

! If a continuable error occured on the 1/0 statement (1SB$B_ERR_NO 

! is non-zero) then SIGNAL the error. The signalling is delayed until 
statement end time so the record is positioned correctly. 


IOSTAT = .CCB CISB$B_ERR_NO); 
IF .JOSTAT NEQU 0 THEN FORSSSIGNAL (.IOSTAT); 


! y); entire 1/0 system back to previous LUB/ISB/RAB if there was one when this 
! 1/0 statement began (see FIOBEG) or indicate that 1/0 system is not. 

' currently pcpcess tne any 1/0 statement (usual) 

: LUB for (old) current unit is saved for next 1/0 statement 


FORSSCB_POP (); 


RETURN .IOSTAT; ' Return IOSTAT error value 
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——_—__—— 


FORSIO_END FORTRAN / 
ponst End 1/0 statement 


: 200 0263 1 END; 


083C 00000 
53 000000006 00 S 44 
5E OC C2 0000 
7E Be 000C 
Ge AE 7C QOO0E 
C AE D4 00011 
60 0049 CF DE 00014 
5B 000000006 00 D0 00019 
OC AE 04 00020 
08 AE FF74 CB 00 00023 
04 AE FF78 CB dO 00029 
6E D4 0002F 
50 FF4C «CB DO 00031 
60 FF44 CB 00 00036 
50 FF71 CB 9A 00038 
50 6340 DO 00040 
6340 16 00044 
52 FF70 §=CB 9A 00047 
09 13 0004C 
52 DD 0004E 
000000006 00 01 FB 00050 
000000006 00 16 00057 1$: 
50 52 DO 00050 
04 00060 
0000 00061 2$: 
50 08 AC 00 00063 
50 04 AO 00 00067 
FO AO OF Baee 
F4 AQ 9F QO06E 
F8 AQ 9F 00071 
FC AO 9F 00074 
4 odd 00077 
E 0 0079 
7 04 =A D 00078 
000000006 00 03 FB 0007F 
04 00086 


; Routine Size: 135 bytes, Routine Base: 
: 201 0264 1 

; a 0265 1 END 

: 20 Bseg 1 

3 267 0 ELUDOM 


J. 8 
16-Sep-1 
14-Sep-1 


_FORSCODE + 0000 


Bc 19:38:05 


AX-11 Bliss-32 V4.0-7 
FORRTL.SRCJFORIOEND. 83 31 


! End of routine 


-TITLE FORSIO_END FORTRAN End I/0 statement 
IDENT \1-011% 
-EXTRN FORSS$A_CUR LUB FORSSAA_UDF _PR9 
EXTRN FORSSERR 
EXTRN FORSSCB *BoP. MF ORSSSIGNAL 
PSECT _FORSCODE,NOWRT, SHR, PIC,2 
ENTRY FORSIO_END, Save Rg -RS.R4R5.R11 
MOVA\ FORSSAR. UDF _PR9, 
SUBL r] 
CLRL L_INCR DEPTH 
CLRQ A_ RoR 
CLRL LS <UNWTND ACTION 
MOVAL 
MOVL fbkss sat tur LUuB. CCB 
CLRL L_UNWIRD ATTION 
MOVL -T40(CCBY, A_ERR_ADR 
MOVL -136(CCB), A_END_ADR 
CLRL OL INCR DEPTH™ 
MOVL -T80(CCB), USER_FRAME 
MOVL mh His tp (USER_F RAME ) 
MOVZBL -143(CCB) 
OVL FORSSAA_UDF_PROCRO], RO 
SB FORSSAA_UDF -PROLROJ 
MOVZBL -144(CCB), TostAt 
EQL 1$ 
PUSHL  IOSTAT 
CALLS #1, FORSSSIGNAL 
JSB FORS$CB_POP 
BOVE IOSTAT, RO 
-WORD Save nothing 
MOVL B(AP), RO 
MOVL 4(RO), RO 
PUSHAB L_INCR_DEPTH 
PUSHAB A_END_ADR 
PUSHAB A_ERR-ADR 
PUSHAB L-UNWIND_ACTION 
PUSHL &% 
PUSHL SP 
MOVa 4(AP), -(SP) 
CALLS #3, FORSSERR_ENDHND 


!End of module FORSIO_END 
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$}0_END FORTRAN End 1/0 statement tb-se Sep-1 


-Sep-1 


PSECT SUMMARY 


Name Bytes Attributes 
_F ORSCODE 135 NOVEC,NOWRT, RD, EXE, SHR, 


Library Statistics 


ecccece = Symbols -------- 

File Total Loaded Percent 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 1 0 
_3255$DUA28: CFORRTL. erie Tess) 711 182 25 
_8255$DUA 8: FORRTL.OBJIRTLLIB.L32;1 36 0 0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:FORIOEND/OBJ=OBJ$:FORIOEND MSRC$:FORIOEND/UPDATE=(ENH$:FORIOEND) 


; Size: 135 code + 0 data bytes 
; Run Time: 0:05.4 

; Elapsed Time: 00:20.9 

; Lines/CPU Min: 2961 

; Lexemes/CPU-Min: 6776 

: po | Used: 79 pages 

; Compila 


tion Complete 
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